home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / cdevskel.cpt / CdevSkeleton2.0 ƒ / CCdevIntf.p < prev    next >
Encoding:
Text File  |  1991-08-21  |  1.7 KB  |  85 lines
  1. UNIT CCdevIntf;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         ObjIntf;
  7.  
  8.  
  9.     TYPE
  10.         styleListRec = RECORD
  11.                 theString: str255;
  12.                 font: integer;
  13.                 size: integer;
  14.                 face: Style;
  15.                 fColor: longint;
  16.                 bColor: longint;
  17.             END;
  18.         styleListPtr = ^styleListRec;
  19.  
  20.         CList = OBJECT(TObject)
  21.  
  22.                 theList: ListHandle;
  23.                 listWindow: WindowPtr;
  24.                 listRect: Rect;
  25.                 dataBounds: Rect;
  26.                 cSize: Point;
  27.                 theRow: integer;
  28.                 lastCell: Cell;
  29.                 theFont, theSize: integer;
  30.                 hasScrollBar: Boolean;
  31.  
  32.                 PROCEDURE IList (lRect: Rect;
  33.                                             w: WindowPtr;
  34.                                             font, size: integer;
  35.                                             ProcID: integer;
  36.                                             hasScroll: Boolean);
  37.                 PROCEDURE Free;
  38.                 override;
  39.                 PROCEDURE ListUpdate;
  40.                 PROCEDURE SelectCell (theCell: Cell);
  41.                 PROCEDURE AddToList (theStr: Str255);
  42.                 PROCEDURE AddListData (theData: styleListRec);
  43.                 PROCEDURE RemoveFromList;
  44.                 FUNCTION GetListData (theCell: Cell): Ptr;
  45.                 FUNCTION DoList (event: EventRecord): Boolean;    {Returns double click or not}
  46.             END;
  47.  
  48.     TYPE
  49.         CCdev = OBJECT
  50.  
  51.  
  52.                 dp: DialogPtr;
  53.                 refNum: integer;
  54.                 rsrcID: integer;
  55.                 lastItem: integer;
  56.                 status: longint;
  57.                 event: EventRecord;
  58.  
  59.                 PROCEDURE Init;
  60.                 PROCEDURE Hit (item: integer);
  61.                 PROCEDURE Close;
  62.                 PROCEDURE Update;
  63.                 PROCEDURE Activate;
  64.                 PROCEDURE Deactivate;
  65.                 PROCEDURE Idle;
  66.                 PROCEDURE Key (theChar: char);
  67.                 PROCEDURE DoCmdKey (theChar: char);
  68.                 FUNCTION Message (msg, item: integer): longint;
  69.  
  70.                 PROCEDURE CCdev.PostCdevEvent (theEvent: EventRecord);
  71.                 PROCEDURE CCdev.ICdev (d: DialogPtr;
  72.                                             rNum: integer;
  73.                                             resID: integer;
  74.                                             items: integer);
  75.  
  76.                 PROCEDURE Undo;
  77.                 PROCEDURE Cut;
  78.                 PROCEDURE Copy;
  79.                 PROCEDURE Paste;
  80.                 PROCEDURE Clear;
  81.             END;
  82.  
  83. IMPLEMENTATION
  84.  
  85. END.